#!/usr/bin/perl

use utf8;

while (<>) {
	split;
	$key = $_[0];
	@phrases = split(/,/, $_[1]);
	$i = 1;
	foreach (@phrases) {
		print "$key|$_|$i";
		print "\n";
		$i++;
	}
}
